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STRSTRANSLATE 16-Sep-1984 01:49: AX-11 Bliss-32 V4.0-74 Page 1 
12-80-1382 93:08:48 LIBRTL.SRCISTRIRANSL .B 2;1 . (1) 
1 MODULE STRSTRANSLATE ( ! copy source to dest and translate 
‘ IDENT = 1-008" ! File: STRTRANSL.B32 Edit: PDG1008 
5 )s 


BEGIN 
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Lie 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eeePOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 


This module takes strings of any Supger ted class or dtype and 
copies the source string to the destination string, rep ac tng 
any character in the source earns that matches a character in 
eae Sateen string by the correspondi 

string. 


ENVIRONMENT: User mode, AST level or not or mixed 
AUTHOR: R. Will, CREATION DATE: 1-Dec-79 
MODIFIED BY: 
R. Will, 1-Dec-79: VERSION 01 
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FE - Str ng speedup get status from macro. RW 11-Jan-1980 
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Make ns-t byte, fix signal macro. RW 11-Feb-1980 
Enhance to recognize additional classes of descriptors by 
using SSTRSGET_LEN_ADDR to extract length and address of 
firs byte data {roe descriptor. Remove string 

code. RKR 29-APR-1981 

Expand translate table to 256 bytes so we can accommodate 


' 
'e¢ 
! FACILITY: String support Library 
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: 35 H 1! full 256 character i RKR cae ree 

: 1! 1-006 - Spee up cod *, 

: 1! 1- ~ ye. STR +g Ree Ter copy oper resin. A S| nated FATAL 

5 1! nstead if SSTRSCHE EK. 4 ine: 

; if ¢ 1 ! 1-008 - Fix bug introduced b Speed. * os Use DECR in creating 
3 6 065 1! translation table; t — haracter occurs several times in the 

; 3 4 : } match string, the first - ys 4 for translation. Use STRSCOPY_DX_ RA 
; @& 0066 1! 

; 67 0067 1 

; & 0068 1 !<BLF/PAGE> 


| 
for the copy operation. PDG 31-Dec-1981 
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STRSTRANSLATE 16-Sep-1984 01:49:28 AX-11 Bliss-32 V4.0-74 Tf 
7-008 ete Pi Pett ee ih hd Pee PT eed ( 


| 
: 90 890 1 i SMITCHES | 
: or) 1! : | 
Ss 0978 1 SWITCHES ADDRESSING MODE 
; 03 07% (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
i ¥ 076 1! 
3 78 0076 1 ! LINKAGES: 
BR BR 
3 4 0 44 i REQUIRE ‘RTLIN:STRLNK'; ! Use require file with string Linkage 
: 8B 0266 1! 
: B4 0267 1 | TABLE OF CONTENTS: 
Bo BBL 
: 87 0270 1 FORWARD ROUTINE 
3 88 0271 +1 STRSTRANSLATE; ' translate routine 
ee 
: 91 0274 1 ! INCLUDE FILES: 
8 MB 
3 3% 0 a REQUIRE 'RTLIN:RTLPSECT’; ! Declare PSECTS code 
; 38 0378 } REQUIRE ‘RTLIN:STRMACROS'; ! use string macros to code 
; 28 1390 ' LIBRARY 'RTLSTARLE'; ! STARLET Library for macros and symbol 
: 100 1292 1! 
: 101 1598 1 | MACROS: NONE 
; 102 1294 1 
2 ee 
> 105 1297 1 | EQUATED SYMBOLS: NONE 
> 106 1298 1 
2 ee 
> 109 1301 1 | PSECT DECLARATIONS 
2 eee Be 
: 118 1304 1 DECLARE_PSECTS (STR); 
oe ee 
: 115 1 8 1 | OWN STORAGE: NONE 
: 116 1308 1} 
ie WT, 
+ 119 1311 1 | EXTERNAL REFERENCES: 
pig eet! 
: 1¢¢ 1314 1 EXTERNAL ROUTINE 
SS 1315 1 L , ' Signal errors | 
; ise : 1 } STRSCOPY_DX_R8& : STRSJSB_COPY_DX ; ! Routine to do the copy | 
: 188 1318 1 EXTERNAL LITERAL | 
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: 27 1319 #1 STRS_NORMAL ; ! successful completion 
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1 rae 
LIBRTL.SR RANSL .B352;1 (3 
GLOBAL ROUTINE STRSTRANSLATE ( 


DEST DESC, 


Page 5 | 
g | 
translate 
! Pointer to destination descriptor 
! Pointer to source descriptor 
TRANSLATE_DESC, ! Pointer to translation string desc 
MATCH_DESC ! pointer to match string desc 


2 


144 


i FUNCTIONAL DESCRIPTION: 


This routine copies the input string to the output string and 
translates all characters in the source string which are also in 
the match string to the corresponding character in the 

translate strip. f the translate ot is shorter than the 
match string, the reptace string is expanded to the length of 
the match string with blanks. 


FORMAL PARAMETERS: 


WAP SO ODNAUNE WN (OOOO LWW OO OONOUSWWN OC 


SSF ee eee SESS EES ES uur 
Now 


DEST _DESC.wt.dx pointer to destination string descriptor 
| 
| 
| 
| 
| 
| 
| 


; ¥ 1 1 
3 1 1 
,.4 1 1 
_ 1 1 
s 3 1 1 
g. 3 1 1 
ee 1 1 
ae | 1 1 
3; 1 1 1 
; 3 1 1 
.<-% 1 1} 
% 1 1! 
. 3 1 1! 
3.7 1 1: 
c= % 1 1! 
ve 1 7: s 
= 1 1! 
7-3 1 77 
a 1 1! 
eS 1 1! 
‘eae 13 .% 
3; 3 1 7% SRC_DESC.rt.dx pointer to source string descriptor 
. 3 1 | TRANSLATE_DESC.rt.dx pointer to translate string descriptor 
; ; ; : MATCH_DESC.rt.dx pointer to match string descriptor 
3 . ; : IMPLICIT INPUTS: 
a" 1347 1! NONE 
s 4 1348 1! 
Pee 1349 ?} ! IMPLICIT OUTPUTS: 
‘a 1350 1! 
Sy 1351 1! NONE 
ee 1326 1! 
. 1355 1 ! COMPLETION CODES: 
ea 1328 1! 
js 1 b>) ee oe. SS$_NORMAL Success. 
3 : 1328 : STRS_TRU Truncation occurred. Warning. 
; } 1328 1 ! SIDE EFFECTS: 
: 168 1359 1! 
: 169 1360 1! May signal: 
; 170 1961 17! STRS_FATINTERR Fatal internal error 
s 71 1338 1! STRS_ILLSTRCLA Illegal (or unsupported) string class 
: He 136 1! STRS$_INSVIRMEM Insufficient virtual memory for ; 
. SF 1364 1! reallocation of dynamic string : 
: 176 1365 1! f 
s 175 1366 1 !-- E 
3 176 1367 1 L 
2 ae 1368 BEGIN L 
; Wwe 1369 K 
; 179 1370 LOCAL C 
; 180 1371 MATCH_LEN ! Length of match string 
> (181 1378 MATCH~ADDR, i addr of ist byte of 
: 186 137 ! match string 
: 1374 TRANS _LEN, ! length of translate 
3; «186 1375 ' string 
; «(185 1376 TRANS_ADDR, ! addr of Ist byte of 
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DEST_LEN, 
DEST_ADDR, 


MAP 
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BEGIN 


X: RE 
TRANSLAT 
x'O 


z 
GIN 
i 
D; 
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MIN_LEN 
RETORN. STATUS, 
TRANSLATE _TABLE 


ROM 256/ZUPVAL=2 TO 0 DO 
.XL0] + %X"04040404"; 
+ ZUPVAL; 


: VECTOR (256, BYTE]; 


EF SSTRSDESCRIPTOR, 
EF SSTRSDESCRIPTOR, 
EF SSTRSDESCRIPTOR, 
EF SSTRSDESCRIPTOR; 


MIN_LEN = MINU(.MATCH_LEN, .TRANS_LEN); 


INCR_I FROM .MIN_LEN TO .MATCH_LEN-1 DO 
TRANSLATE_TABLE CCHSRCHAR TCHSPLUS (.MATCH_ADDR, .1))] = 
STRSK_FILL_CHAR; 


ock does the equivale 
FROM 0 TO 255 DO TRAN 
s it a longword at a time 


4 01:49:28 
4 5303:%8 


translate string 
Length of destination 
string 

addr of ist byte of 
destination string 


status from STRSCOPY 
table to do translate 


! compute length and address of ist data byte of strings involved 
and signal if any fatal errors result 


SSTRSGET_LEN_ADDR ( MATCH DESC, MATCH_LEN, MATCH_ADDR ) ; 
SSTRSGET_LEN_ADDR ( TRANSCATE_DESC, TRANS_LEN, TRANS_ADDR Dg 
Copy source to the destination string and signal fatal errors. 


RETURN_STATUS = STRSCOPY_DX_R8 ( .DEST_DESC, .SRC_DESC ); 
SSTRSSIGNAL_FATAL (RETURN_STATUS) ; 


+ 
Get length and addr of ist byte of destination after copy operation. 
SSTRSGET_LEN_ADDR ( DEST_DESC, DEST_LEN, DEST_ADDR ) ; 

The copy is finished, now create the translate table 


t of: 
SLATE_TABLEC.1J=.1 ; 


' initilize to translate to self 


AX-11 Bliss-32 V4.0- 
LIBRTL.SRCJSTRTRANSL 
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i AX-11 Bliss-32 V4.0-7 P 7 
8 CIARTL SRCISTRTRANSL B82: 1 $98 (3) | 
ee eat 
: 265 14 DECR_1 FROM .MIN_LEN-1 TO 0 DO fill i t t | ; 
; eb 1239 TRANSLATE _ TABLE CHSRCHAR (CHSPLUS . MATCH_ADDR, aise | ; 
: gal 1438 CHSRERAR (CHSPLUS C TRANS ADDR, .1)); | ; 
: 249 1440 2 !+ | ; 
: 2 1469 : Now translate the destination string in place. : 
3 3¢ 1443 2 | : 
; 1444 CHSTRANSLATE  ( ; 
: 254 1445 TRANSLATE_TABLE, ! ASCII translation table ; 
; 2? re | ‘DEST LEN: : from destination : 
3 2f 1708 STREKTFILL CHAR, i oye ee poe same string 
; fe8 1450 ‘DESTZADDR) ;  peetaie aoe 
: 261 1458 2 RETURN .RETURN_STATUS; : 
; 262 1453 1 END; 'End of STRSTRANSLATE : 
TITLE STRSTRANSLATE ; 
SIDENT \1-008\ : 
EXTRN LIBSSTOP, STRSCOPY DX_R 3 
EXTRN STR$_NORMAL, STRSANALT IE _SDESC_R1 : 
.PSECT _STRSCODE,NOWRT, SHR, PIC.2 ; 
OFFC 00000 ENTRY STRSTRANSLATE, Save R2,R3,R4,R5,RO,R7,RB,~ ; 1320 ; 
SE ee HLL, ie) | 
02 05 Ad 91 00008 CMPB -3(RO) > : ; 
OA 1A OOOOF BGTRU 1$ : ; 
04 AE 60 3¢ 00011 MOVZWL (RO), MATCH_LEN : ; 
SA 04 A900 00018 MOVL R05, MATCR_ADDR ; : 
06 ag 000000006 03 § QO1B 18: -JSB_ = STRSANALYZE, SDESC_R1 : ; 
SA 51 0 00025 MOVL RI, R10 : ; 
50 Oc AC pO 8 28: Movi TRANSLATE DESC. RO : 1397 ; 
i 09 TA 09 gerry 3s 
: 69 3¢ 000 MOVZWL (RO), TRANS_LEN ; ; 
8 04 AD BO 90085 ROVL 4 (ROS, TRANS _ADDR ; : 
000000006 1 ° 3$:  JSB_ ss STRSANALYZE_SDESC_R1 : ; 
6E D 41 MOVL RO, (SP) ; 
4 D 44 MOVL «RI, R ; 
04 AC D 7 4$: MOVL DEST_DESC, R9 > 1403 
1 8 ac D 4B MOVL  SRC_BESC, ‘RI ; 
0 D 4F MOVL R9 3 
000000006 0 1 2 JSB STRSCOP ; 
36 D 8 MOVL RETURN STATS : 
1 6 £8 00058 BLBS RE TUR. STATUS, 5$ > 1405 
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| 
STRSTRANSLATE 16- 4 01:49: AX-11 Bliss-32 V4.0-7 Page 8 
1-008 1 ety fi 93:28:48 LIBRTL.SRCJSTRTRANSL. 8 2:1 . (3) | 
04 56 03 9 Fo 5 CMPZ7V #0, #3, RETURN_STATUS, #4 : : 
8 0b 9008 PUSHL RETURN, STATUS : | ; 
000000006 99 1 FB CALLS ii tiess tor : | : 
03 Ad 91 5$: CMPB Os «3(R9), @ t 1410 F 
09 yA BGTRU 6$ : | ; 
54 69 ¢ 7 MOVZWL (R9), DEST_LEN : | F 
1 06 Ad D 77 MOVL  4(R9S, DEST_ADDR : : 
Of 11 00078 BRB 7s : ; 
50 DO 0007D 68: MOVL : ; 
,, 000000006 99 16 996 JB STASANALYZE _SDESC_R1 : | ; 
35 08 AE oe 8 7$: MOVAB Pas." TABLE, X + 1420 F 
60 030201 F DO 000 MOVL 62976, + 1421 ; 
5 E DO 00094 MOVL j + 1422 ; 
60 BO 04040404 BF C1 00097 8s: ADDL3 a $72036, O+, OX) + 14246 ; 
F 2 F4 0009F SOBGEQ + 1422 ; 
50 04 AE DO OO0A MOVL MATCH LEN, RO + 1429 ’ 
6E 50 D1 000A CMPL 0, TRANS. LEN § : 
03 1B 000A9 BLEQU ; : 
50 gf DO O00AB MOVL = _TRANS_LEN, RO ; : 
52 50 DO OOOAE 9S: MOVL RO, MIN_LEN ; : 
50 FF Ag H 0081 MOVAB (Re). I + 1432 ; 
09 11 00085 BRB F : 
53 604A 9A 00087 10$: MOVZBL some ADDR], R3 ; : 
08 AEG3 20 90 000BB mova SLATE. TABLECR3] : | ; 
F2 50 06 A Fe 00CO 11$:  AOBLSS LEN, I, : ; 
50 52 DO 000C5 MOVL RiNctEN: i + 1438 3 
OA 11 000C8 BRB 13$ ; : 
5 604A 9A OOOCA 12$:  MOVZBL (1)CMATCH -ADDRI, R2 : 1437 : 
08 AES 6048 90 OOOCE MOVB (I) ETRANS-ADDRJ. TRANSLATE_TABLECR2] + 1438 : 
F3 50 F4 00004 138: SOBGEQ I, 12$ : 1437 ; 
08 AE 20 6) 54 2€ 00007 MOVTC DEST_LEN, (DEST_ADDR), #32, - + 1450 ; 
61 54 000DD TRANSLATE_TABLE; DEST_LEN, (DEST_ADDR) : ; 
50 56 D0 S000F MOVL = RETURN_ Cixtuee ko : 1453 ; 
04 000€2 RET > 145 ; 
; Routine Size: 227 bytes, Routine Base: _STRSCODE + 0000 ; 
3 63 1454 : 
is 64 1455 1 END 'End of module é 
3 265 1456 0 ELUDOM : 
} y 
: PSECT SUMMARY | 3 
; Name Bytes Attributes | : 
i _STRSCODE 227 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) ; 
| ; 
| 


popstar iecseertgge 03:48:% UMTar te oSReSstaTRANSL 682; a 


Library Statistics 


: oooce Symbols ------- Pages Processin 

; File Total. ” Lpaded Percent Mapped Time . 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 6 0 581 00:00.7 

F COMMAND QUALIFIERS 

; BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#LIS$:STRTRANSL/0BJ=08J$: STRTRANSL MSRC$:STRTRANSL/UPDATE=(ENH$: STRTRANSL 
hy saad soge ; 0 data bytes 
Elapsed Time: 3 
Li ines/CPU Min: a0:¢7. 


ema A ale 34980 
wees! | Used: 110 pages 
Compilation Complete 
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